home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earcd / utils / selector / examples / setup < prev    next >
Text File  |  1998-01-23  |  207b  |  15 lines
  1. copy >nil: S:rgst7-startup.copy env:scnt
  2. setenv scnt `eval $scnt+1`
  3.  
  4. if 3 GT $scnt VAL
  5.     selector logo
  6. endif
  7.  
  8. if 8 EQ $scnt VAL
  9.     selector comeon
  10. endif
  11.  
  12.  
  13. copy >nil: env:scnt S:rgst7-startup.copy
  14. unsetenv scnt
  15.